tensile<-structure(list(str = c(0.023, 0.032, 0.054, 0.069, 0.081, 0.094, 
0.105, 0.127, 0.148, 0.169, 0.188, 0.216, 0.255, 0.277, 0.311, 
0.361, 0.376, 0.395, 0.432, 0.463, 0.481, 0.519, 0.529, 0.567, 
0.642, 0.674, 0.752, 0.823, 0.887, 0.926)), .Names = "str", row.names = c(NA, 
30), class = "data.frame")
